10 PRINT"[147]":POKE53280,8:POKE53281,8:POKE646,1:PRINTCHR$(14)
20 FORU=1TO10:PRINT:NEXTU
30 PRINT"              [204]ABEL [195]OPY[146]         "
40 FOR J=1TO1000:NEXTJ:PRINT"[147]"
90 PRINT"[147][212]HIS PROGRAM PRINTS A SPECIFIED NUMBER
100 [153]"OF LABELS. (null)INES CAN BE ADDED BETWEEN":[153]"LABELS. VALXAMPLE:":[153]
110 [153]"1 1/4 INCH LABELS REQUIRE ONE LINE      BETWEEN LABELS.":[153]
190 [153]"(null)P TO 5 LINES OF TEXT CAN BE ENTERED ON EACH LABEL.
210 PRINTTAB(12)"[145][204]ABELS CAN ALSO BE SAVED TO DISK
220 [153][163]5)"ONBY ENTERING A FILENAME AT THE":[153]"SPECIFIED PROMPT.
240 PRINTTAB(7):INPUT"[208]RESS <RETURN> TO CONTINUE[129]";A
250 POKE19,64:PRINT"[147][197]NTER (Y) TO ALIGN AND PRINT A FIVE-LINETEST LABEL.
260 [133]"(null)EST LABEL (Y/N)";L$
280 [139]L$[178]"Y"[167]700
282 [151]19,0
285 [153]"LOADVALNTER LABEL DATA AT PROMPTS":[153]"(null)(null)(null)VAL: (null)O SHIFTED CHARACTERS!"
290 [133]"LEFT$OW MANY LABELS";C
300 [133]"LEFT$OW MANY LINES BETWEEN LABELS";P
310 [133]"NEW (N) OR OLD (O)";U$
320 [139] U$[178]"O"[167]890
330 X[178]1532:E[178]E[170]1:
340 [133]"LINE 1";N$
350 [133]"LINE 2";A$
360 [133]"LINE 3";C$
370 [133]"LINE 4";Z$
380 [133]"LINE 5";E$
410 [153]"LABEL DATA:"
420 [153]""
430 [153]"";N$
440 [153]"";A$
450 [153]"";C$
460 [153]"";Z$
470 [153]"";E$
480 [153]"(null)HIS WILL PRINT";C;"CMD COPIES"
490 [153]"(null)ITH ";P;"CMD LINES BETWEEN LABELS"
500 [153]"                        "
510 [133]"LENHANGE (Y) OR (N)";B$
530 [139] B$[178]"Y" [167]282
540 [133]"WANT TO SAVE DATA ";I$
550 [139] I$[178]"Y"[167][141]810
560 [159]5,4
570 [129] X[178]1 [164] C
580 [152]5,N$
590 [152]5,A$
600 [152]5,C$
610 [152]5,Z$
620 [152]5,E$
630 [129] T[178]1[164]P:[152]5:[130]T
640 [153]"LOAD":[153]"PRINT #";X
650 [130]X
660 [153]"LOAD":[129]F[178]1[164]1000:[130]F
670 [151]1082,14:[133]"PRINT NEW LABELS";H$
680 [139] H$[178]"Y"[167][160]5,4:[156]:[137]250
690 [139] H$[178]"N"[167][128]
700 [151]19,0:[159]5,4
710 [153]"LOADPUT LABELS IN PRINTER"
720 [133]"ENTER 'Y' <RETURN> TO CONTINUE";V$
730 [152]5,"LINE 1 ******THIS*******"
740 [152]5,"LINE 2 ******IS*A*******"
750 [152]5,"LINE 3 *****SAMPLE******"
760 [152]5,"LINE 4 ******TEST*******"
770 [152]5,"LINE 5 ******LABEL******"
780 [133]"LOADPRINT AGAIN";M$
790 [139] M$[178]"N"[167][160]5,4:[137]282
800 [139] M$[178]"Y"[167][137]730
810 [153]"INSERT DATA DISK AND ENTER FILE NAME":[133]V$
820 [159]2,8,2,"0:"[170]V$[170]"S,W"
830 [152]2,N$
840 [152]2,A$
850 [152]2,C$
860 [152]2,Z$
870 [152]2,E$
880 [160]2,8,2:[142]
890 [153]"INSERT DATA DISK AND ENTER FILE NAME":[133]V$
900 [159]2,8,2,"0:"[170]V$[170]"S,R"
910 [132]2,N$
920 [132]2,A$
930 [132]2,C$
940 [132]2,Z$
950 [132]2,E$
960 [160]2,8,2:[137]410